home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / WMS.CAB / cache_getstarted.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  9.4 KB  |  293 lines
  1. ∩╗┐<%@ Language=VBScript CODEPAGE=65001 %>
  2. <!--#include file="include/wmsLocStrings.inc"-->
  3. <!--#include file="include/wmsServerHash.inc"-->
  4. <!--#include file="include/wmsPlugins.inc"-->
  5. <!--#include file="include/wmsHeader.inc"-->
  6. <!--#include file="include/wmsPageBanner.inc"-->
  7. <!--#include file="include/wmsTabs.inc"-->
  8. <!--#include file="include/wmsError.inc"-->
  9. <!--#include file="include/wmsToolbar.inc"-->
  10. <% 
  11. '+-------------------------------------------------------------------------
  12. '
  13. '  Microsoft Windows Media
  14. '  Copyright (C) Microsoft Corporation. All rights reserved.
  15. '
  16. '  File:       Cache_GetStarted.asp
  17. '
  18. '  Contents:
  19. '
  20. '--------------------------------------------------------------------------
  21.  
  22. BeginErrorHandling 
  23. ConnectToServer
  24.  
  25. if( WMS_SERVICE_STARTED <> g_dwConnectionFailureCode ) then
  26.     Response.Redirect( "include/server_stopped.asp?server=" & RemoveDangerousCharacters( qs("server") ) )
  27. end if
  28.  
  29. Dim bCacheEnabled
  30.  
  31. ' Connect to the proxy plug-in, if it exists, and determine if it's enabled
  32. set g_objPluginCollection = g_objServer.CacheProxy
  33. if( FALSE = IsEmpty( g_objPluginCollection ) ) then
  34.     g_dwPluginCount = g_objPluginCollection.Count
  35. else
  36.     g_dwPluginCount = 0
  37. end if
  38.  
  39. bCacheEnabled = FALSE
  40. if( 0 < g_dwPluginCount ) then
  41.     for i = 0 to g_dwPluginCount - 1
  42.         Set eachPlugin = g_objPluginCollection(i)
  43.         if( 0 <> ( WMS_PLUGIN_ENABLED and eachPlugin.status ) ) then
  44.             bCacheEnabled = TRUE
  45.             exit for
  46.         end if
  47.     next
  48. end if
  49.  
  50. WriteHTMLHeader( g_strServerName ) %>
  51. <script language="JavaScript" src="include/WMSCommon.js"></script>
  52. <script language="JavaScript">
  53. <!--
  54. <% if brMSIE <> g_dwBrowserType then %>
  55. ///////////////////////////////////////////////////////////////////////
  56. function HandleRClick( event )
  57. {
  58.     event.cancelBubble = true;
  59.     event.returnValue = false;
  60.     return( false );
  61. }
  62.  
  63. document.onmousedown=HandleRClick;
  64. document.onmouseup=HandleRClick;
  65. document.oncontextmenu=HandleRClick;
  66. window.onmousedown=HandleRClick;
  67. window.onmouseup=HandleRClick;
  68. window.oncontextmenu=HandleRClick;
  69. <% end if %>
  70.  
  71. <% WriteCommonJSUtils %>
  72. -->
  73. </script>
  74. <% if brMSIE = g_dwBrowserType then %>
  75. <script language="JavaScript" event="oncontextmenu" for=document>
  76.     event.cancelBubble=true;
  77.     return false;
  78. </script>
  79. <% end if %>
  80. <link rel="stylesheet" type="text/css" href="<%= Session( "cssName" ) %>">
  81. </head>
  82. <body topmargin="0" leftmargin="0" rightmargin="0" marginwidth="0" marginheight="0" oncontextmenu="JavaScript:event.cancelBubble=true;return false;">
  83. <table valign="top" width="100%" height="85" cellspacing="0" cellpadding="0" border="0" class="bannerName" <% if brMSIE <> g_dwBrowserType then %>bgproperties="fixed" bgcolor="#FFFFFF" background="img/gradient_tabview.png"<% end if %> <% DisableContextMenu %>>
  84. <% if brMSIE = g_dwBrowserType then %><img height="85" width="100%" src="img/gradient_tabview.png" style="position:absolute;top=0;left=0;z-index=-1"><% end if %>
  85. <tr>
  86.     <td>
  87.         <table valign="top" width="100%" hspace="0" vspace="0" cellspacing="4" cellpadding="1" border="0" style="border-collapse:collapse" margin-top="0" margin-bottom="0">
  88.         <tr>
  89.             <td width="4">
  90.                  
  91.             </td>
  92.             <td valign="middle" align="left" width="32">
  93.                 <img src="img/cacheproxy_32.gif" border="0" height="32" width="32">
  94.             </td>
  95.             <td width="4">
  96.                  
  97.             </td>
  98.             <td align="left" width="100%">
  99.                 <table width="100%" cellspacing="0" cellpadding="0" border="0">
  100.                 <tr>
  101.                     <% 'server name %>
  102.                         <td valign="bottom" align="left">
  103.                         <span class="bannerName">
  104.                             <%= Server.HTMLEncode( L_CACHEPXMGMT_TEXT ) %>
  105.                         </span>
  106.                     </td>
  107.                     <td valign="top" align="right">
  108.                          
  109.                     </td>
  110.                 </tr>
  111.                 <tr>
  112.                     <td>
  113.                         <% if bCacheEnabled then 
  114.                             Response.Write( Server.HTMLEncode( L_CACHESUPPORTON_TEXT ) )
  115.                         else
  116.                             Response.Write( Server.HTMLEncode( L_CACHESUPPORTOFF_TEXT ) )
  117.                         end if %>
  118.                     </td>
  119.                     <td>
  120.                          
  121.                     </td>
  122.                 </tr>
  123.                 </table>
  124.             </td>
  125.         </tr>
  126.         </table>
  127.     </td>
  128. </tr>
  129. <tr valign="bottom">
  130.     <td>
  131.         <table width=100% valign="top" cellspacing="0" cellpadding="0" border=0>
  132.         <tr>
  133.             <td>
  134.                 <% DrawCacheProxyTabs L_GETSTARTEDTABTITLE_TEXT %>
  135.             </td>
  136.         <%
  137. if( FALSE = g_bSecureConnection ) then
  138. %>
  139.                 <script language="JavaScript">
  140.                     ShowHideSecureWarning( "img/not_secure_32.gif" );
  141.                 </script><%
  142. end if
  143. %>
  144.         </tr>
  145.         </table>
  146.     </td>
  147. </tr>
  148. </table>
  149.  
  150. <p>
  151.  
  152. <table width=100% cellspacing="0" cellpadding=4 border="0" >
  153. <tr>
  154.     <td class="helptext">
  155.         <%= Server.HTMLEncode( L_CACHEHELP_TEXT ) %>
  156.     </td>
  157. </tr>
  158. <tr>
  159.     <td>
  160.         <table cellpadding="0" cellspacing="0" border=1 width="100%"><tr><td>
  161.         <table cellpadding=2 cellspacing="0" border="0" width="100%">
  162.         <tr height="3px">
  163.             <td height="3px">
  164.             </td>
  165.         </tr>
  166.         <tr>
  167.             <td colspan=3>
  168.                  <span class="helptext"><%= Server.HTMLEncode( L_CACHEPARTHDR_TEXT ) %></span>
  169.             </td>
  170.         </tr>
  171.         <tr>
  172.             <td colspan=2>
  173.                 <table cellpadding=2 cellspacing=2 border="0" class="propgroupbox" width="100%">
  174.                 <tr>
  175.                     <td class="helptext" colspan=2>
  176.                         <%= Server.HTMLEncode( L_CACHEPART_TEXT ) %>
  177.                     </td>
  178.                 </tr>
  179.                 <tr>
  180.                     <td>
  181.                          
  182.                     </td>
  183.                     <td valign="middle">
  184.                         <img align="left" valign="middle" src="img/web_resources.gif" height="32" width="32" alt="<%= Server.HTMLEncode( L_WMSLINK_TEXT ) %>"><a tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> align="left" valign="middle" target="_partners" oncontextmenu="JavaScript:event.cancelBubble=true;return false;" href="<%= L_CACHEPARTLINKURL_TEXT %>"><b><%= Server.HTMLEncode( L_WMSLINK_TEXT ) %></b></a>
  185.                     </td>
  186.                 </tr>
  187.                 </table>
  188.             </td>
  189.         </tr>
  190.         </table>
  191.         </td></tr></table>
  192.     </td>
  193. </tr>
  194. <tr>
  195.     <td>
  196.         <span class="helptext"><%= "<b>" & Server.HTMLEncode( L_PROXYBCAST_TEXT ) & "</b>" %></span>
  197.     </td>
  198. </tr>
  199. <tr>
  200.     <td>
  201.         <table cellpadding="0" cellspacing="0" border="0" width="100%"><tr><td>
  202.         <table cellpadding="0" cellspacing="0" border="0" class="propgroupbox" width="100%">
  203.         <tr>
  204.             <td class="helptext">
  205.                 <%= Server.HTMLEncode( L_PROXYBCASTHELP_TEXT ) %>
  206.             </textarea>
  207.             </td>
  208.         </tr>
  209.         </table>
  210.         </td></tr></table>
  211.     </td>
  212. </tr>
  213. <tr>
  214.     <td>
  215.         <span class="helptext"><%= "<b>" & Server.HTMLEncode( L_CACHEOD_TEXT ) & "</b>"  %></span>
  216.     </td>
  217. </tr>
  218. <tr>
  219.     <td>
  220.         <table cellpadding="0" cellspacing="0" border="0" width="100%"><tr><td>
  221.         <table cellpadding="0" cellspacing="0" border="0" class="propgroupbox" width="100%">
  222.         <tr>
  223.             <td class="helptext">
  224.                 <%= Server.HTMLEncode( L_CACHEODHELP_TEXT ) %>
  225.             </td>
  226.         </tr>
  227.         </table>
  228.         </td></tr></table>
  229.     </td>
  230. </tr>
  231. <tr>
  232.     <td>
  233.         <%
  234.         dwLastToolbarIndex = 0
  235. if( Session( "ShowServerList" ) ) then
  236.         ToolbarButtonText ( dwLastToolbarIndex ) = L_BUTTONRETURNTOSERVERLIST_TEXT
  237.         ToolbarButtonImage( dwLastToolbarIndex ) = IMAGE_SERVERLIST
  238.         ToolbarButtonLink ( dwLastToolbarIndex ) = SERVERSLIST_PATH
  239.         ToolbarButtonAltText( dwLastToolbarIndex ) = L_RETURNTOSL_TEXT
  240.         dwLastToolbarIndex = dwLastToolbarIndex + 1
  241. end if
  242.  
  243.         ToolbarButtonText ( dwLastToolbarIndex ) = L_BUTTONHELP_TEXT
  244.         ToolbarButtonImage( dwLastToolbarIndex ) = IMAGE_HELP
  245.         ToolbarButtonLink ( dwLastToolbarIndex ) = HELPTOKEN
  246.         ToolbarButtonAltText( dwLastToolbarIndex ) = L_HELPALT_TEXT
  247.         ToolbarHelpURL = H_SERVERCPHELPTOPIC
  248.         ToolbarNesting = H_SERVERLEVEL
  249.  
  250.         %>
  251. <% DrawToolbar TRUE, ( dwLastToolbarIndex + 1 ) %>
  252.  
  253.     </td>
  254. </tr>
  255. </table>
  256. <%
  257.     DrawCopyrightInfo
  258.     AlertUserWithPopupErrorDialog
  259.     OnErrorGoBack 
  260.  
  261. if brMSIE = g_dwBrowserType then
  262. %>
  263. <script language="JavaScript">
  264. <!--
  265. /*@cc_on @*/
  266. function HilightCurrentNode()
  267. {
  268.     <% jsTRY %>
  269.         var childFrame;
  270.         childFrame = parent.frames && parent.frames[ "treeFrames" ];
  271.         if( childFrame )
  272.         {
  273.             childFrame = window.parent.frames[ "treeFrames" ].frames[ "frameTreeCode" ];
  274.         }
  275.         if( childFrame )
  276.         {
  277.             childFrame.SetSelectedNode( "cache" );
  278.         }
  279.     <% jsCATCH %>
  280. }
  281. HilightCurrentNode();
  282. -->
  283. </script>
  284. <% end if %>
  285. </body>
  286. </html>
  287. <%
  288. LatchCurrentPage "cache_getstarted.asp", qs
  289. EndErrorHandling "cache_getstarted.asp" 
  290.  
  291. on error resume next
  292. PluginsASPCleanup
  293. %>